gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGjsmsc.asp

    <!-- #INCLUDE FILE="login.asp" -->
<%
	dqw="统一生成广告位英文名 JS文件名"
	Call Heads_GGclass(dqw)
	
	'///******************************************************************
	'  广告位js 名称统一生成  文件名：GGjsmsc.asp  参数：action 为 不同的功能标示
	'******************************************************************/// 

      if trim(request("pid"))<>"" then
      pid=replace(trim(request("pid"))," ","")
      sqladd=" where pid in ("&pid&") "
      end if
      
  if trim(request("a"))="yes" then
      
      Rs.open "Select * From [place] "&sqladd&" order by pid ",conn,3,3,1
      do while not rs.eof 
      pid=rs(0)
      p_name=rs(1)
      p_ename=rs(6)
      rs(6) = trim(request("qz"))&rs(0)
      rs.update
	  

	  response.write p_name&" 生成英文名以更新为："&rs(6)&"！"
	    
 	  if isnull(p_ename)=false and p_ename<>"" and trim(request("b"))="1" then
      call PubDeleteFile("js/"&p_ename&".js")
      response.write "  原JS文件 "&p_ename&".js 已删除. "
      end if
      
      if  trim(request("c"))="1" then
      	Filename="js/"&rs(6)&".js"
	    NeiRong=" document.write (""<"" + ""s"" + ""c"" + ""r"" + ""ipt"" + "" lan"" + ""guage"" + ""="" + ""ja"" + ""vasc"" + ""ript"" + "" sr"" + ""c"" + ""="" + """ + DqUrl + "/ad.asp?i="&pid&""" +""><"" + ""/s"" + ""cript"" + "">""); "
	
	    call PubWriteFile(Filename,NeiRong)
	    
	  response.write "  新JS文件已生成."   
	  end if
	      
      response.write "<br>"
      
      rs.movenext
      loop
      rs.close

end if
%>
<%if  trim(request("a"))=""  then
if pid<>"" then%>
 
<%else%>

<form method="POST" action="?a=yes">
 
	<p><select size="10" name="pid" multiple style="width:415; height:136">
  <%
  
    sqladd="" 
  
  if isnumeric(trim(request("cid"))) then sqladd=" where Cid ="&Cint(trim(request("cid")))
  
  sql="select Cid,Cname from class "&sqladd&" order by cid"
  set rs=conn.execute(sql)
  do while not rs.eof
    cid=rs(0)
	If AdminClassIfkg(cid)="yes" then '' 只有当该分类有权被当前管理员可管时才显示
	
	  sql2="select * from place where cid="&cid
    set rs2=conn.execute(sql2)
    do while not rs2.eof
    pid=rs2(0)
    
%>

	<option value="<%=rs2(0)%>"> <%=rs2(1)%> (<%=rs2(6)%>.js)</option>


 
<%  rs2.movenext
    loop
    rs2.close
    End If
    rs.movenext
  loop
  rs.close
   

 
 
%>		</select></p><p>统一前缀：<input type="text" name="qz" size="20">&nbsp; 可以为空<br>
	<br>
	&nbsp;<input type="checkbox" name="b" value="1" checked>同时删除旧的JS文件 
	<input type="checkbox" name="c" value="1" checked>同时生成新的JS文件 &nbsp; 可以多选<br>
	<br>
	<input type="submit" value="确定生成选中广告位" name="B1">&nbsp;
	<input type="reset" value="重置" name="B2"></p>
</form>
<BR><BR>
本功能是为了快速生成各广告位英文名而设计的，生成格式为： <font color="#FF0000">统一前缀 + 广告位ID</font><p>只有从老版本升级至本版本时才需要执行此操作，正常运行过程中，一般不需要重新生成。</p>


<%end if

 end if  
      call close_conn()
%>